home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 2.iso / dist / fw_guile.idb / usr / freeware / bin / guile-config.z / guile-config
Encoding:
Text File  |  2002-07-08  |  656 b   |  17 lines
  1. #!/bin/sh -fb
  2. # 
  3. # Split the normal guile-config script into pieces so we can insert
  4. # $ROOT where necessary.  (You can't put variables on the '#!' line).
  5. #
  6. if [ -n "${ROOT}" ]; then
  7.    export GUILE_LOAD_PATH=${GUILE_LOAD_PATH:-${ROOT}/usr/freeware/share/guile/${GUILE_VERSION:-1.4}}
  8. fi
  9.  
  10. # guile behaves differently if stdout is a tty, so we can't reasonably
  11. # postprocess the output.  If we could, we'd do something like this:
  12. #  | sed -e 's#\(-[IL]\)\(/usr/freeware\)#\1${ROOT}\2#g' \
  13. #        -e 's#freeware/lib32#freeware/${ABILIB:-lib32}#g'
  14.  
  15. exec ${ROOT}/usr/freeware/bin/guile \
  16.     -e main -s ${ROOT}/usr/freeware/share/guile/.scm/guile-config "$@"
  17.